From 1335795d0b607afb9f1d1c47fb9461ee94fa73f6 Mon Sep 17 00:00:00 2001 From: Daniel Pfeiffer Date: Wed, 14 Jul 2004 21:07:54 +0000 Subject: [PATCH] (mode-line-mode-menu): Fix alphabetical ordering and add auto-revert-tail-mode. --- lisp/bindings.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/bindings.el b/lisp/bindings.el index b3ea8e562ac..e13b2cab9a4 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -404,12 +404,12 @@ Menu of mode operations in the mode line.") (define-key mode-line-mode-menu [highlight-changes-mode] `(menu-item ,(purecopy "Highlight changes (Chg)") highlight-changes-mode :button (:toggle . highlight-changes-mode))) -(define-key mode-line-mode-menu [glasses-mode] - `(menu-item ,(purecopy "Glasses (o^o)") glasses-mode - :button (:toggle . (bound-and-true-p glasses-mode)))) (define-key mode-line-mode-menu [hide-ifdef-mode] `(menu-item ,(purecopy "Hide ifdef (Ifdef)") hide-ifdef-mode :button (:toggle . (bound-and-true-p hide-ifdef-mode)))) +(define-key mode-line-mode-menu [glasses-mode] + `(menu-item ,(purecopy "Glasses (o^o)") glasses-mode + :button (:toggle . (bound-and-true-p glasses-mode)))) (define-key mode-line-mode-menu [font-lock-mode] `(menu-item ,(purecopy "Font Lock") font-lock-mode :button (:toggle . font-lock-mode))) @@ -419,12 +419,15 @@ Menu of mode operations in the mode line.") (define-key mode-line-mode-menu [column-number-mode] `(menu-item ,(purecopy "Column number") column-number-mode :button (:toggle . column-number-mode))) -(define-key mode-line-mode-menu [auto-fill-mode] - `(menu-item ,(purecopy "Auto Fill (Fill)") auto-fill-mode - :button (:toggle . auto-fill-function))) +(define-key mode-line-mode-menu [auto-revert-tail-mode] + `(menu-item ,(purecopy "Auto revert tail (Tail)") auto-revert-tail-mode + :button (:toggle . auto-revert-tail-mode))) (define-key mode-line-mode-menu [auto-revert-mode] `(menu-item ,(purecopy "Auto revert (ARev)") auto-revert-mode :button (:toggle . auto-revert-mode))) +(define-key mode-line-mode-menu [auto-fill-mode] + `(menu-item ,(purecopy "Auto fill (Fill)") auto-fill-mode + :button (:toggle . auto-fill-function))) (define-key mode-line-mode-menu [abbrev-mode] `(menu-item ,(purecopy "Abbrev (Abbrev)") abbrev-mode :button (:toggle . abbrev-mode))) -- 2.30.2